(* initialiser SDL *)
let init () =
  begin
    Sdl.init [`EVERYTHING];
    Sdlevent.enable_events Sdlevent.all_events_mask;
  end
  
(* Dimension d'une image *)
let get_dims pic =
  ((Sdlvideo.surface_info pic).Sdlvideo.w,
   (Sdlvideo.surface_info pic).Sdlvideo.h)

(* affiche la surface pic sur la surface de destination dst *)
let show pic dst =
  let d = Sdlvideo.display_format pic in
  Sdlvideo.blit_surface d dst ();
  Sdlvideo.flip dst
